EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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LL IIII111 BBBBBBBB TITTTTTTITT AAAAAA BBBBBBBB MM AM AAAAAA cccccccc 

LL III] BBBBBBBB TITTITTTTT AAAAAA BBBBBBBB MM MM AdR ALA ccccccce 

LL I] BB BB TT ae AA BB BB MMMM MMMM AA AA CC 

LL I] BB TT AB AA BB BB MMMM MMMM AA AA CC 

LL I] BB BB TT Aa AA 6B BB MM MM MM AA AA CC 

LL I] BB TT AA AA 6B BB MM MM MM AA AA CC 

LL I] BBBBBBBB TT AA AA 88888888 MM MM AA AA CC 

LL I] BBBBBBBB TT AA AA BB88BBBBB MM MM AA AA CC 

LL I] BB BB TT AAAAAAAAAA BB BB MM MM AAAAAAAAAA CC 

LL I] BB BB TT AAAAAAAAAA BB BB OMM MM AAAAAAAAAA CC 

LL I] BB BB TT As AA BB BB MM MM AA AA CC cece 
L! I] BB BB TT aA AA BB BB MM MM AA AA CC cove 
LLLLLLLLLL IIIII] BBBBBBBB TT AA AA 88888888 MM MM AA AA cccccccc eeee 
LLLLLLLLLL 111] BBBBBBBB TT aa AA BBBBBBBB MM MM AA AA ccccccce eeee ve 


MM MM AAAAAA RRRRRRRR 
MM MM ABAAAA RRRRRRRR 
MMMM MMMM AA AA 

MMMM MMMM AA AA RR RR 
MM MM MM AA AA RR RR 
MM MM OMM «OAA AA RR RR 
MM MM AA AA RRRRRRRR 
MM ‘lal AA RRRRRRRR 
MM MM AAAAAAAA RR RR 

MM MM AAAAAAAAAA RR RR 

MM MM AA AA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
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-+¢ 
: > FACILITY: General Utility Library 


; ; ABSTRACT: 


E LiOSST ABLE. MACROS = Define macros for LIB$ tables 
T /1-001/ ; File: LIBTABMAC.MAR Edi 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE pth NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES "MEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
TRANSFERRED NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
comPohatitn. = NOT BE CONSTRUED AS A COMMITMENT BY DIGI 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


THOUT 
E 


I NOTICE 
TAL EQUIPMENT 


ARRAS ASAASASALALALASLELEL ALES ESE SSE SESE EEE ESSERE SESE ESE E SESE CSRS CESSES 


This file contains macros that define the various translation 
tables that reside in the Run-Time Library. These macros are 
inserted into CRTL.OBJJS.MLB Gur ing the system build, and are 
invoked by both LIBVECTOR and by the individual source files 
to create object modules. 


rhe pee, of each macro is the name of the appropriate table prefixed 
w . 


3 ENVIRONMENT: No executable code. 

; AUTHOR: Steven B. Lionel, CREATION DATE: 28-October-1982 
; MODIFIED BY: 

1-001 - Original. SBL 28-0ctober-1982 


t: $BL1001 


K 
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-SBTTL DECLARATIONS 
LIBRARY MACRO CALLS: 
NONE 
EXTERNAL DECLARATIONS: 
PS ta GBL ; Force all external symbols to be declared 


MACROS: 
See below 
EQUATED SYMBOLS: 
NONE 
OWN STORAGE: 
NONE 
PSECT DECLARATIONS: 
No generated code or data. 


+ 


LIE 
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.SBTTL SLIBSAB_ASC_EBC 


p++ 


; FUNCTIONAL DESCRIPTION: 


ww 
4 
a 
Vv 
@ 
c w 
o 
oa ~~ 
wo c oe 
a a c 
nn ~ j - 
«e «e sos oO 
2 > 2. a 
- 
. > ] vt ~~ ¢ 
a i= 4 a | e.6h6U6S° 
~ aw <= o = 
2 at —- wwe 
@ . eicwwo@s 
rw - ji oecce 
a oi--o « 
c = 'aow~— 
°o we vt ew 
-_- —) Oe wo x 
ot °o Qiwt-@e 
oe _ vicocvw~ 
— @ioerlco 
" wo wi vwoa—-- 
c a 
@ we 
e eo 
7 — 
w“” 
T=) c 
ce) «a 
a = 
Ww ee ~ 
@ ~ ce 
uw a ~ @ 
be o~ = 
°o @ ~w 
ow 7c #@ 
nn or — 
rs vy co «2 
— - saa 
Vv = e 
” a eocn~t 
= @-- vIitcOoOx@ 
tc +i @r-e@es 
@Oo oO £1 Se—TC 
<r - aicsas+w 
Oo - 2; ess 
r = | alow 
1) va Ot eH Ve 
-t “ne ievot OO 
aquw tt @ xr 
“oo x mt Ii—@gue 
—N —@& YIierwww 
a ed we 
Rem av dituu-¢ mm 
=< - 
x= 
-_ a 
w a 
z e 
< o 


al Del Deed pe Reh Die Dm Ried De Died Deed Doe Doe Doel Dd Rd 


@eeeeeeeas 
CGOoooooooooooocooo 


PORN. OOMF OOR 
Ne Te TOMOWNTNOWTO 
SOOO O SE MK MMM UO 
Soooooooooooooooo 


bd Dit Ret Roe De Doe Dee Ripe ied Dine eh Donel ed ed Rae 
OK VUMTNOP- OK MTN Or 
NOOO COCCI 
#seepeeeeeepesep & 6 6 8 
GOooooooooooooooo 
OK UM TNOP- OK TIM TN Or 
RINSE PEED 


| dR Dt Rt Rd Bt Bt Rd Bd el Red Bd ed Bd ed Bd 
Ld Se Donel Sine Died Sine Ded Steed Ded Dine Ded ed Sine Sine Sed ed 
Cooooocooooo om 
ocoooooooooooceoo 
€<€4€44€44€44€44464€446€4€44€4444664 
*e* @ se 8seeee#eestse#tet &©& & &© & & 
| dt et Rd Rd Bt Be Rd Bd Dd Bd ed ed ed ed ad 
CoOoOoooo Oooooocoo 
cooooooooooooooo 
€<€4¢€¢€4€46€464€464€446€464€4€4444466 
e*e* @seeee#s8#8#esestetesest & & 
dd Bd dd dd td at 
LLLP RRR. 
SOooooooooooooooo 
Sooooooooooooecocoeo 
€¢€4¢464€4446€4446€44€4€444644466 
ee @seeee#ee##8e8te8s ete 8& & & & 
LLL RRR RRR LR R 
ee SSoSoSoooSOoSSoooo 
COOoOoooocooooooooo 
cooooooooc“wooocoeo 
€44¢44444€44464€446€46€4€4444664 
e*e e@eeeee#ee#s#e##e#8}e#e# e#® &® @ @ 
LLL RR. 
CO dd el Dd Sed Sd ed Sed ted Sd ed ed 
Coooooooo 
ooooooecoceo 
€44¢44€¢€4¢€44€46€464€4464€44€44€44446464 
e*see 8eeeee#es#e#8te#eeete & & 
de td Bt dd Rd Ra tt Rad Re Rt Rd dR 
Cd dk ed Dl ed Died Dal Sie eed ed ed ed Sine 


ooooo SSssss 
SSssssssss ooco 
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-SBTTL SLIBSAB_ASC_EBC_REV 


3 ++ 

: FUNCTIONAL DESCRIPTION: 

: his is is the gheversible ASCII to EBCDIC translation table, based 
: on ANSI A 970 

; ALL ASCII graphics are translated to their equivalent EBCDIC 

: graphic except for: 

; ASCII graphic EBCDIC graphic 

; C (left square bracket) cents sign 

: ' (exclamation point) short vertical bar 

5 * (circumflex) popica: not 

; J] (right square bracket) exclamation point) 

: Note that this translation table, unlike LIBSAB_ASC_EBC, is a 

; one-to-one onto Cee REV That is, it has a reverse “tracelation. 
: namely LIBSAB_EBC_ASC_REV. 


-MACRO $L1BSAB ASC FBC 
-BYTE anOl. “Z “108, “X37, *X2D,°X2E,°X2F ; 00-07 
-BYTE aK16, 4% °*x25, <x0C.2 x0D,°X Boa F ; 08-0F 
.BYTE 8st: sandecaa 5 °X3C.°X3D,°X32,°X26 : a 
-BYTE  °X18,°X19.°X3F, RE **XIC.*XID.AXTE.“XIF : 1B-1F 
-BYTE *x40,°X NGF AKPE AR B,*X5B,*X6C,°X50,°X7D ; 20-27 
BYTE * 4D + 2X50. 2K5C A KGE 2 6B,*X60,°X42,°X61 ; 2B-2F 
~BYTE  “XFO,*XF1,°XF2,°XF3,°XF4,°XFS, OXF O,*MF? = 30-37 
~BYTE “XFB,°XF9,*X7A,°XSE,°X4C, *X7E,*XGE,*XOF : 3B-3F 
BYTE * wXCN AACR XC 0 KC4,*KC5 *KC6 MXC? ap-87 
-BYTE “*XCB,*XC9,°XD1,*XD2,°XD3,°XD4,°XD5,°XD6 : 48-4F 
-BYTE NDE «ADB. AXD8. 2 E2,*XE TR e ; 20-37 
.BYTE aME? «ok 0 *KE9, *X4A,°XEO, *X5A,°X5F,°XOD ; 58-55 
BYTE  *X79,°XB1,°XB2,°X83,°XB4, °XB5, °XB6,°XB7 90-97 
BYTE  *X8B,°XB9,°X91, 4X92, °X93S, 9X96, 9X95 MN9G $ “$F 
BYTE *X97,°X9B,°X99,°KA2,°KAS, “XAG,* 0 XAG ; o- 7 
~BYTE  “XA7,°XAB,*XA9,°XCO,*X6A,°XDO,°XA1,*XO? : 78-7F 
eBYTE  *X20,°X21,°X22,°K23,°X26,°K15,°X06,°X17 = 80-87 
BYTE *X28,°X29,°K2A, °*X2B, °X TR OR A,*X1B ; 88-8F 
BYTE *x 2x 1,°X1A,°X335,°X54,°XS5, °X56,°X0B : 90-97 
BYTE *X38,°X39,°X3A,°X3B, °X04, °X14, °X Boa : 98-9F 
BYTE = =—-®X41,4K642,°XG 35, °KSG, 9K45, 98X46, OKG7, MO N4B Os ADMA7 
BYTE %*X469,°xXS1,°xX52,°% RS 9 OS oX56,°X57 = ABH-AF 
.BYT. 2098 Kok .*X63,° $4 2X6 » "X66, °X67 = BO-B7 
BYTE * § i DR. Be | 1,°x r he | ee 4,°x 5 Py 8 -BF 
-BYTE 6,°X77,°X78,* 80, Ao X88 2X 2x80 : CO-C7 
-PYTE  “XBE,“XBF,°X90,°N9A,°X9B,*X9C,°X9D, *X9E ; CB-CF 
-BYTE “*X9F,°XAO,*XAA,* “XAC, Be o*KAF ; 00-07 

3: D 

3 € 

7 E 

: F 

: F 


+ 
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-SBTTL SLIBSAB_CVT_O_U 


+ 
FUNCTIONAL DESCRIPTION: 


This is the overpunch to unsigned translation table. 

It maps every character to itself except that it maps 

A Sac cme sign characters to the corresponding | 
igit. 


Se Oe ee Oe we Oe Oe we ee 
+ 


-MACRO $UJ88A8 CVvT_O 
-BYTE 0,*x01, aRo2e *x03,°X04,°xK05,°xX06,*X07 
gt 08. ss x09; *xX0OA,*X0B, “Xx X0C;*x0D.*XOE, ante | 


ex X19,°X1A, x X1E,*X1F 
-BYTE x20, “9X30, *X22,°X23,°X26,°X25..°X26,°X27 
-BYTE “x 8, aS: o“K2A,°X B.2x C,*X2D,°X2E,*X f | 


@aeeeee ee eee eeeeeeeaeeane 


BYTE =*X30,°X31,°X32,°X35,°XS4,°XS5,°X56, °X 

~BYTE “X38,°X39,°X30,°X "any “an o“X3E,°X30 
BYTE = *X60,°X31,°X32,°X33,°X34,°X Rt Set 4 
-BYTE  “X38,°X39,*X31,°X Rt oe 4 ,*X35,,°X36 
~BYTE “X37,°X38, “ant 0 *KX54,°XS5,°X56,°X57 
gh “X58, °X59,°K5A,°X30,°X5C,°X30,°X5E,°XSF 


| 
-BYTE “X80,°X81,°X82,°X83,°X84,°XB5, *X86, XB E 
7 Y E a 6 A, “xX "x8C,* o"XBE , “XBF | 
BYTE  *X90,°X91, 4X92, °X9S, °K9G, 9X95, °K96, MKT 1 
"BYTE “x98. SHIA, 2X98, X9C, X9D .*X9E . *X9F | 1 
~BYTE “XAO,“XA1,°XA2,°XA3,°XAG,°XA5S, “XAG, *XA7 1 
-BYTE “xXA8,* + KAR. AD, *XAE, “XAF | 
-BYTE “*XBO,°XB1,°XB2,°XB3,°XB4,°XB5, “X86, °XB7 - 
-BYTE  “*XB8,* “BA, x88. - »“XBD , “XBE , “XBF + 
eBYTE «*XCO,*XC1,°XC2,°XC3,°XC4, *KC5,°KC6, MXC? | $ 
BYTE “*XCB,*XC9,*XCA,*XCB,°XCC, “XCD, “XCE, “XCF I 
BYTE *XDO,°XD1,°XD2,°XD3,°XD4,°XD5,°XD6,°XD7 F 
“BYTE  *XDB.*xXD9.* DA. 2X08, 2X0C, **XDE. “XDF | 
.BYTE xe0. “KXE1,°XE2,°XE3,°XE4, “KES, “XE6, “XE? 
-BYTE 8° *xXE9. ate “XEB,*XEC,“XED, “XEE, “XEF | 
.BYTE “a1: o*KF1,°KF2, °XE 3, °XES, OXES, OXF O, OXF? 
.BYTE “XF9. “KFA. *XFB,°XFC.°XFD, “XFE.°XFF 


4 
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——— | 


-SBTTL S$LiBSAB_CVTPT_O 


soe 
; FUNCTIONAL DESCRIPTION: 
: This is the packed to overpunch translation table. 


® 
@ 
. 
* 
=< 
> 
> 
> 
S 
@ 
*. 
> 
~“ 
. 
> 
ba 
~“ 
@ 
. 
> 
=< 
~“ 
@ 


x7 e x . x eo x B 
“X7B,*X7B,*X7B,°X7B,°X7B,°X7B,“X7B,°X7B 
“X7B,°X7B,*°X7B,°X7B,°X7B,°X7B,°X7B,°X7B 


4 
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p44 
; FUNCTIONAL DESCRIPTION: 
: This is the packed to unsigned translation table. 


-MACRO $LIBSAB 


Me Bees ere: 


aut “100-300. : 2 : 2 oe 


ae 2X00 °X00.°X Ora a ee a 


f ome 
— 
mm 


F 4 
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-SBTTL $LIBSAB_CVTPT_Z 


“BYTE  *X30,°X30.°X30,°X30,°X 
4 0,°xX30,°xX30,°x50,°Xx 


C 
C 
3+ | C 
; FUNCTIONAL DESCRIPTION: Cee 
s This is the packed to zoned translation table. | i 
3 It is used in conjunction with a CVTPT machine instruction to Ce 
; convert packed decimal data items to zoned numeric data type. Given C* 
; the binary representation for the highest addressed byte (that is, the ¢* 
; least significant digit and sign) of a data item in the packed C* 
; decimal data type, the table gives the hex representation of the ¢* 
|; highest addressed byte in the zoned numeric form of the data item. ee 
f C* 
-MACRO S$LIBSAB_CVTPT_2 Ct 
3; Hex os 
' BYTE  “*X30,*X30,°X30,°X30,°X30,°X30,°X30,°X30 : 00-07 Ce 
BYTE “%X30,°X30,°X Sets it ett et et ; 08-0F C* 
BYTE  “*X30,°X30,°X30,°X30,°X30,°X30,°X30,°X30 ; 10-17 Ce 
BYTE %*X30,°X30,°X31,°X71,°X ot 4 Bet et 3 18-1F C* 
BYTE * “x30,°X30,°X30,°X30,°X30,°X30,°X30 ; 20-27 ce 
BYTE  %X30,°X30,°X32,°X72,°X32,°X72,°X32,°XSe o-¢F Ct 
BYTE  %xX30,°X30,°X30,°X30,°X30,°X30,°X3 03X30 : 30-37 ce 
BYTE et Sets Sint te 0° X33,°X73,°X33,°X33 3 38-3F Cee 
BYTE 2 "X30,°X30,°X30,°X30,°X30,°X30,°X30 ; 40-47 
BYTE *X30,°X30,°X34,°X74,°X346,°X74,°X34,°XS4 = 4BH4F | 
BYTE ot net ss ts es ae ee 9. x30 3 50-57 
BYTE  *X30,°X30,°X35,°X75,°X39,°X75.°X35,°XS5 s OBM5F 
BYTE “%*X30,°X30,°X30,°X30,°X30,°X30,°X ts : 60-67 
-BYTE “X30,°X30,°X36,°X76,°X36,°X76,°X36,°X36 ; 68-6F 
-BYTE %x30,*X30,°X Ot 0,*x30,°X Bate 3; 70-77 
"BYTE *X30.°X30.°X37.°X77,°X37,°X77,°X37,°X37 : 7BH7F | 
BYTE  *X30,°X30,°X30,°X30,°X 0. 2430,2x 00x 0 ; 80-87 
BYTE “%X30,°X30,°X38,°X78,°X38,°X78,°X38,°X38 ; 88-8F 
BYTE “*x30,*X Beak 0,°xX30,°Xx et ee ex. 0; 90-97 
-BYTE *x30,°X Bo 9,°X7 ae | Ry ox mk g e 98-9F 
-BYTE “x30 ,°xX30,°X30,°X30,°X30,°X30,°X30,°X30 ; AO-A7 
BYTE mt nt 0" X30,°X30,°X3S0,°X30,°X 8 3; AB-8F 
BYTE “x30,°xX30,°X30,°xX30,°X30,°X30, °X30,°X 3; B0-B7 
-BYTE “x30,°xX30,°X30,°X30,°X30,°X30,°X30,°X30 ; B8-BF 
~BYTE —“X30,X30,°X30,°X30,°X30,°X30,°X30,°X30 ; CO-C7 
-BYTE *X30,°X30,*X350,°X30,°X30,°X30,°X350,°X30 ; C8- 
g | 
0; 
0; 
0; 


4 
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34+ 
; FUNCTIONAL DESCRIPTION: 
: This is the overpunch to packed translation table. 


-MACRO a resee. yb 
-BYTE  “x00,*x00,* x00. “x00,*x00, 230004 »“x00,*x00 


-BYTE axoo! “300 Ba 2400; 100°% 380189 


LIB 


OO 


H 4 
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-SBTTL SLIBSAB_CVTTP_U 
p++ 
; FUNCTIONAL DESCRIPTION: 


This is the unsigned to packed translation table. 


SLIBSAB_CVTTP U 
*x00,* *x00,*x0 


: 
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3+ 
; FUNCTIONAL DESCRIPTION: 


3 This is the unsigned to overpunch translation table. It is indexed 
; by Q through 9 for the positive overpunches and 10 through 19 for 
; the negative overpunches. 


“MACRO $LIBSAB,CVT_U_O 
“ASCII “CABCDEFGHI 
“ASCII "}JKLMNOPQR" 


-ENDM 


a 


* 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
Cc 
Cc 


@eenee ee eee ee eeeeeeeenene 


a 
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-SBTTL SLIBSAB_EBC_ASC 


soe 

; FUNCTIONAL DESCRIPTION: 

; This is the EBCDIC to ASCII translation table based on 

; ANSI X3.26 = 1970 

: ALL EBCDIC graphics are translated to the identical ASCII 

: graphic except for: 

; EBCDIC graphic ASCII graphic 

; cents sign C (left square bracket) 

; short vertical bar ' (exclamation point) 

: popicet not * (circumflex) 

g ! Cexclamation point) J] (right square bracket) 

: Untranslatable codes map into “0134 (The ASCII character ‘'\"'). 
: Mapping them into “0032 (The ASCII Substitute char.) would be 
: more desireable, but could cause trouble with compatibility with 
; STREAM-ASCII files under RMS-11 which recognizes “0032 as 

$ a CONTROL-Z signifying an End-of-file. 


-MACRO $LIBSAB_EBC Ase 


-BYTE  *00 9.20001. 2,°0003,°0134,°0011,°0134,°0177 ;000-007 
BYTE  *0134,°0134,°0134,°0013,°0014,°0015,°0016,°0017 ;010-017 
-BYTE *0020,°0021,*°0022,*°0023,°01 4 + 20134 .20010.201 4 020-027 
-BYTE *0030,°0031,°0154,°0134,°00 $0208 5,°0036,°0037 ;030-037 
BYTE %0134,°0134,°0134,°0134,°0134,°0 42.200 7,°00 3 3040-047 
«BYTE  *0134,°0134,°0134,°0134,°01 $+2000 »*0006,°0007 ;050-057 
-BYTE *0134,°0134,°0026,°0134,°0134,°0134,°0134,°0004 ;060-067 
BYTE  %0134,°0134,°0134,°0134,°00 $2008 » 201 4,*°0032 ;070-077 
«BYTE *0040,°0134,°0134,°0134,°0134,°0134,°0154,°0134 :100-107 
BYTE *0134,°0134,°0133,°0056,°00 $-20030.200 3,°0041 3110-117 
BYTE  %0046,°0134,°0134,°0134,°0134,°0134,°01 34,°01 34 140-197 
BYTE  %0134,°0134,°0135,°004 + 20088» 200 1,°0073,°0136 3130-137 
«BYTE %0055,°0057,°0134,°0134,°0134,°0134,°0134,°0134 :140-147 
.BYTE 20134 6201 4,°0174,°0054,°0045,°0137,°0076,°0077 :150-157 
BYTE %0134,°0134,°0134,°0134,°0134,°0134,°01 34,°01 34 160-167 
BYTE %0134,°0140,°0072,°0043,°0100,*°0047,°0075,°0042 ;170-177 
«BYTE  *0134,°0141,°0142,°0143,°0144,°0145,°0146,°0147 ; 99- 07 
BYTE %0150,°0151,°0134,°0134,°0134,°0134,°0134 2210-217 
-BYTE  *0134,°01 $0 2013302 154,°0155,°0156,°0157 ; q0 ¢ 
BYTE *01 1.2018 »*0134,°0134,°01 34, °0134,°01 34 3230-237 
BYTE  *0134,°0176,°0163,°0164, °0165,°0166, *0167 ; 40 47 
-BYTE  *0171,°0172,°0134,* 4,°0134,°0134 3250-257 
BY 0 4,°0134,°01 34 : $0 $7 

YTE 4,°0134,°0134 : 7 

¥ E 94.20 5,°0106 3300-307 
BYT 4,°0134,°0134 3310-317 

YTE 15,°0116,°0117 3320-327 


QO 
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*01 
*01 
*01 


#: 


1,°01 
4,*01 
1 +201 


“0060, * 
“0070, “p0r1: -*0134 


i 


2,°0134 
*01 
ee “0134 
“00 


“01 
ial. 


g.-b08e2%9 


“01 
4,°01 
4.201 


4, a4 54 
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“01 
5,*01 
te “01 


af 


4,*01 
6,°01 
4,°01 


: 


4,*01 
7,*01 
4, +201 


ee 1 802*0 “039 


4 . 
0 . 
4 . 
067 . 
7 . 
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~-SBTTL SLIBSAB_EBC_ASC_REV 


3+ 
; FUNCTIONAL DESCRIPTION: 
s en I is ~ gngreretate EBCDIC to ASCII translation table based | 
3; on ANSI X3.26 = 1970 
; ALL EBCDIC graphics are translated to the identical ASCII 
: graphic except for: 
: EBCDIC graphic ASCII graphic | 
-  anooeee=erern  @ @3&£# §58 = 6 *fee8e8 eee ab a Se ee | 
3 cents sign C (left square bracket) 
; short vertical bar ' (exclamation point) | 
3 popscey not « (circumflex) 
; exclamation point) J (right square bracket) | 
> 
3 Note that this translation table, unlike LIBSAB_EBC_ASC, is a 
3 one-to-one onto CEB Re That is, it has a reverse “Sranakattens | 
3 namely LIBSAB_ASC_EBC_REV. 
eo 

-MACRO $LIBSAB EBC_ASC aREy 

-BYTE %*x00,*xX01,*R02, *x .F *X9C.*X09,°X86,*X7F ; 00-07 

-BYTE  °X97,°X8D,°XBE,*X0B,*X0C.*XOD D;*x0 *@XOF 3 08-0F 

BYTE *KX10,°X11,°X1 oe 6 o"X9D,°XB5,°X9 X87 3 10-17 

-BYTE %X18,°X19,°X92,°XBF,°X1C,°X1D,*X1E,°X1F ; 18-1F 

«BYTE %*X80,°X81,°X82,°X83,°X84,°X0A,°X17,°X1B ; 20-27 

-BYTE “*X88,°X89,*X8A,*°X8B,*X8C,*°X05,°X06,°X07 ; $5. F 

BYT X90 ,*X91,°K16,°X9S,, ° X94, 9X95, 8X96, *K04 = 30-37 

BYTE . x99, “X9B,°X14, a X9E,*XIA : 38-3F 

-BYT “X20,°KAO,°XA1,“XA2,°XA3,°XA4,°KAS, “XAG : 40-47 

-BYT “KA7,“KAB,*X5B,*X2E,°X3C,°X28,°X2B,°X21 : 48-4F 

-BYTE  %*X26,°XA 2 "XAB,“XAC,“*XAD,“XAE,“XAF ; 50-57 

-BYTE “*XB0,*XB1,°X5D,°X24,*X2A,°X29,°X3B,* 4 3; 58-5F 

-BYTE “*X2D,*°X Oo Beek So OR HR 3; 60-67 

-BYTE “*XB8,°XB9,*X7C,*°X2C,°X25,°X5F,* Fea : ono 

-BYTE “XBA,*XBB,* ie o *XBE,*X bent o"xXCl1 ; i 7 

-BYTE “*XC2,*X60,°X3A,°X23,°X40,°X27,°X Bo akes 3: 78-7F 

-BYTE x 0X6) 2X68» 2X6 0 "X64, °X $8 se 3; 80-87 

BYTE ante an Ree See ange “ange “xe o"XCB,*XC9 : 88-8F 

BYTE ae mee “x aie C oXeE a4 Foax : 9 3 

BYTE aonb. + aXCE is ite MGA? 242 3: AQ-A7 

-BYTE *onpe? ane o"XD6,°XD7 ; AB-AF 

-BYTE 108. Rs D 2 *XDF Py 8B -B7 | 

BYTE x + 2X09. 2XDA as “ay Pee ay "XE6,*XE7 ; B8-BF 

-BYTE “XxX Bane eane 0 M45, °KG4G OOS, *K46, 9X47 = CO-C7 

BYTE *X4 X49 oakt » XEA,*XEB, *X ang 3; CB-CF 

eBYTE “*X7D,°X4A,°X4B,°X4C,°X4D,°X4E, *X4F,°X50 = DO-D7 

-BYTE %X51,°X52,°X oa tge MED. o MFT, °XF2,°XFS = DB-DF 

BYTE “X50, *X9F , “x “x56 ,°xX5 0X5 x5 oAX5 ; EQ-E7 

BYTE x59, “x5A, “XF4, *°KF5.°XFO, “xF **xFB. “XF9 ; EB-EF 
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-BYTE 
-BYTE 


-ENDM 
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m4 
16-SEP-1984 17:05:12.56 Page 


X31, “X32,,°X33,,°X34,°X35,°X36,°X37 5 FO-F7 
“X39, °XFA,“XFB,°XFC,°XFD,°XFE.*XFF : FBMFF 
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ae -SBTTL SLIBSAB_UPCASE = String Upcase Translate Table 

: FUNCTIONAL DESCRIPTION: 

: LIBSAB_UPCASE is a translate table. suitable for use with 

3 a MOVTC instruction, which spec d translation of 

: lower case ASCII characters to their upper case equivalent. 


Only the characters ‘a’ through ‘z‘ are translated, all 
other characters translate to themselves. 


-MACRO $LIBSAB_UPCASE 


1=0 
-REPEAT <*A/a/-0> 
BYTE I 
I=1+1 
-ENDR 
REPEAT 26 
-BYTE JI-<*A/a/=-*A/A/> 
l=]+1 
~ENDR 
»REPEAT <255-*A/2/> 
-BYTE I 
I=]+1 
-ENDR 
.~ENDM 


-END ; End of module LIBSSTABLE_MACROS 


PMENT CORPORATION | 
AND PROPRIETARY 
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